
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarDataType
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	21/3/2549 17:04:44	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvCarDataType
#Region "Internal member variables"
    Private _DataTypeID As Int16
    Private _DataTypeName As String
    Private _DataTypeDesc As String
    Private _OtDay As Decimal
    Private _OtHoliday As Decimal
    Private _CostDay As Decimal
    Private _CostHoliday As Decimal
    Private _CostDriver As Decimal
    Private _HumanNum As Byte
    Private _DataTypeStatus As Byte
    Private _TypeId As Int16
    Private _InvCarTypes As QueryInvCarTypes
#End Region

    Public Sub New()
        _DataTypeID = Nothing
        _DataTypeName = Nothing
        _DataTypeDesc = Nothing
        _OtDay = Nothing
        _OtHoliday = Nothing
        _CostDay = Nothing
        _CostHoliday = Nothing
        _CostDriver = Nothing
        _HumanNum = Nothing
        _DataTypeStatus = Nothing
        _TypeId = Nothing
        _InvCarTypes = Nothing
    End Sub

    Public Sub New(ByVal DataTypeID As Int16, _
       ByVal DataTypeName As String, _
       ByVal DataTypeDesc As String, _
       ByVal OtDay As Decimal, _
       ByVal OtHoliday As Decimal, _
       ByVal CostDay As Decimal, _
       ByVal CostHoliday As Decimal, _
       ByVal CostDriver As Decimal, _
       ByVal HumanNum As Byte, _
       ByVal DataTypeStatus As Byte, _
       ByVal TypeId As Int16, _
      Optional ByVal InvCarTypes As QueryInvCarTypes = Nothing)
        _DataTypeID = DataTypeID
        _DataTypeName = DataTypeName
        _DataTypeDesc = DataTypeDesc
        _OtDay = OtDay
        _OtHoliday = OtHoliday
        _CostDay = CostDay
        _CostHoliday = CostHoliday
        _CostDriver = CostDriver
        _HumanNum = HumanNum
        _DataTypeStatus = DataTypeStatus
        _TypeId = TypeId
        _InvCarTypes = InvCarTypes
    End Sub

#Region "Property"

    Public Property DataTypeID() As Int16
        Get
            Return _DataTypeID
        End Get
        Set(ByVal value As Int16)
            _DataTypeID = value
        End Set
    End Property


    Public Property DataTypeName() As String
        Get
            Return _DataTypeName
        End Get
        Set(ByVal value As String)
            _DataTypeName = value
        End Set
    End Property


    Public Property DataTypeDesc() As String
        Get
            Return _DataTypeDesc
        End Get
        Set(ByVal value As String)
            _DataTypeDesc = value
        End Set
    End Property


    Public Property OtDay() As Decimal
        Get
            Return _OtDay
        End Get
        Set(ByVal value As Decimal)
            _OtDay = value
        End Set
    End Property


    Public Property OtHoliday() As Decimal
        Get
            Return _OtHoliday
        End Get
        Set(ByVal value As Decimal)
            _OtHoliday = value
        End Set
    End Property


    Public Property CostDay() As Decimal
        Get
            Return _CostDay
        End Get
        Set(ByVal value As Decimal)
            _CostDay = value
        End Set
    End Property


    Public Property CostHoliday() As Decimal
        Get
            Return _CostHoliday
        End Get
        Set(ByVal value As Decimal)
            _CostHoliday = value
        End Set
    End Property


    Public Property CostDriver() As Decimal
        Get
            Return _CostDriver
        End Get
        Set(ByVal value As Decimal)
            _CostDriver = value
        End Set
    End Property


    Public Property HumanNum() As Byte
        Get
            Return _HumanNum
        End Get
        Set(ByVal value As Byte)
            _HumanNum = value
        End Set
    End Property


    Public Property DataTypeStatus() As Byte
        Get
            Return _DataTypeStatus
        End Get
        Set(ByVal value As Byte)
            _DataTypeStatus = value
        End Set
    End Property


    Public Property TypeId() As Int16
        Get
            Return _TypeId
        End Get
        Set(ByVal value As Int16)
            _TypeId = value
        End Set
    End Property


    Public Property InvCarTypes() As QueryInvCarTypes
        Get
            Return _InvCarTypes
        End Get
        Set(ByVal value As QueryInvCarTypes)
            _InvCarTypes = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvCarDataTypes
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	21/3/2549 17:04:44	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvCarDataTypes
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvCarDataType
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvCarDataType)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvCarDataType)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvCarDataType)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
